require(DT);require(webshot);require(ggplot2);require(plotly);
require(reshape2);require(networkD3);require(d3heatmap);require(circlize);
require(chorddiag)

nc <- cor(d[,c(2,3,5,6,7)])
chordDiagram(nc)